home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filbx2 / fileboxg.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.6 KB  |  48 lines
  1. ' Booleans
  2. Global Const TRUE = -1
  3. Global Const FALSE = 0
  4.  
  5.  
  6. '====================='
  7. '                     '
  8. ' Function parameters '
  9. '                     '
  10. '====================='
  11.  
  12. ' MsgBox parameters
  13. Global Const MB_OK = 0                 ' OK button only
  14. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  15. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  16. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  17. Global Const MB_YESNO = 4              ' Yes and No buttons
  18. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  19.  
  20. Global Const MB_ICONSTOP = 16          ' Critical message
  21. Global Const MB_ICONQUESTION = 32      ' Warning query
  22. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  23. Global Const MB_ICONINFORMATION = 64   ' Information message
  24.  
  25. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  26. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  27. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  28.  
  29. ' MsgBox return values
  30. Global Const IDOK = 1                  ' OK button pressed
  31. Global Const IDCANCEL = 2              ' Cancel button pressed
  32. Global Const IDABORT = 3               ' Abort button pressed
  33. Global Const IDRETRY = 4               ' Retry button pressed
  34. Global Const IDIGNORE = 5              ' Ignore button pressed
  35. Global Const IDYES = 6                 ' Yes button pressed
  36. Global Const IDNO = 7                  ' No button pressed
  37.  
  38.  
  39. ' Show (form)
  40. Global Const MODAL = 1
  41. Global Const MODELESS = 0
  42.  
  43. Global WorkFile As String
  44. Global CRLF As String
  45. Global Const FILE_NOT_FOUND = 53
  46.  
  47.  
  48.